home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Games Parlour• / MacMatch ••• / MacMatch / MacMatch.rsrc / CODE_2_MISC1.txt < prev    next >
Text File  |  1987-02-19  |  24KB  |  444 lines
  1. # near model CODE resource
  2. # jump table entries: 224-229 (6 of them)
  3. export_28:
  4. 00000000  4E56 FF00                link       A6, -0x0100
  5. 00000004  206E 000C                movea.l    A0, [A6 + 0xC]
  6. 00000008  43EE FF00                lea.l      A1, [A6 - 0x100]
  7. 0000000C  7040                     moveq.l    D0, 0x40
  8. label0000000E:
  9. 0000000E  22D8                     move.l     [A1]+, [A0]+
  10. 00000010  5340                     subq.w     D0, 1
  11. 00000012  6EFA                     bgt        -0x4 /* 0000000E */
  12. 00000014  4E5E                     unlink     A6
  13. 00000016  205F                     movea.l    A0, [A7]+
  14. 00000018  DEFC 000A                add.w      A7, 0xA /* '\n' */
  15. 0000001C  4ED0                     jmp        [A0]
  16. export_29:
  17. 0000001E  4E56 0000                link       A6, 0
  18. 00000022  A9F4                     syscall    ExitToShell
  19. 00000024  4E5E                     unlink     A6
  20. 00000026  4E75                     rts
  21. export_30:
  22. 00000028  4E56 FFF6                link       A6, -0x000A
  23. 0000002C  48E7 0F00                movem.l    -[A7], D4,D5,D6,D7
  24. 00000030  4267                     clr.w      -[A7]
  25. 00000032  A974                     syscall    Button
  26. 00000034  1C1F                     move.b     D6, [A7]+
  27. 00000036  1E06                     move.b     D7, D6
  28. 00000038  42A7                     clr.l      -[A7]
  29. 0000003A  A975                     syscall    TickCount
  30. 0000003C  2A1F                     move.l     D5, [A7]+
  31. label0000003E:
  32. 0000003E  1006                     move.b     D0, D6
  33. 00000040  670A                     beq        +0xC /* 0000004C */
  34. 00000042  1007                     move.b     D0, D7
  35. 00000044  6706                     beq        +0x8 /* 0000004C */
  36. 00000046  4267                     clr.w      -[A7]
  37. 00000048  A974                     syscall    Button
  38. 0000004A  1E1F                     move.b     D7, [A7]+
  39. label0000004C:
  40. 0000004C  42A7                     clr.l      -[A7]
  41. 0000004E  A975                     syscall    TickCount
  42. 00000050  281F                     move.l     D4, [A7]+
  43. 00000052  1007                     move.b     D0, D7
  44. 00000054  0A00 0001                xori.b     D0, 0x1
  45. 00000058  C02E 0008                and.b      D0, [A6 + 0x8]
  46. 0000005C  2F00                     move.l     -[A7], D0
  47. 0000005E  4267                     clr.w      -[A7]
  48. 00000060  A974                     syscall    Button
  49. 00000062  121F                     move.b     D1, [A7]+
  50. 00000064  201F                     move.l     D0, [A7]+
  51. 00000066  C001                     and.b      D0, D1
  52. 00000068  2204                     move.l     D1, D4
  53. 0000006A  9285                     sub.l      D1, D5
  54. 0000006C  B2AE 000A                cmp.l      D1, [A6 + 0xA]
  55. 00000070  5CC1                     sge        D1
  56. 00000072  8001                     or.b       D0, D1
  57. 00000074  0240 0001                andi.w     D0, 0x1
  58. 00000078  67C4                     beq        -0x3A /* 0000003E */
  59. 0000007A  4CDF 00F0                movem.l    D4,D5,D6,D7, [A7]+
  60. 0000007E  4E5E                     unlink     A6
  61. 00000080  205F                     movea.l    A0, [A7]+
  62. 00000082  5C4F                     addq.w     A7, 6
  63. 00000084  4ED0                     jmp        [A0]
  64. export_31:
  65. fn00000086:
  66. 00000086  4E56 FFFA                link       A6, -0x0006
  67. 0000008A  486E FFFA                pea.l      [A6 - 0x6]
  68. 0000008E  A874                     syscall    GetPort
  69. 00000090  2F2D 9726                move.l     -[A7], [A5 - 0x68DA]
  70. 00000094  A873                     syscall    SetPort
  71. 00000096  486D 88A6                pea.l      [A5 - 0x775A]
  72. 0000009A  A8A3                     syscall    EraseRect
  73. 0000009C  4267                     clr.w      -[A7]
  74. 0000009E  302E 0008                move.w     D0, [A6 + 0x8]
  75. 000000A2  E140                     asl        D0.w, 8
  76. 000000A4  41ED 88AE                lea.l      A0, [A5 - 0x7752]
  77. 000000A8  4870 0000                pea.l      [A0 + D0.w]
  78. 000000AC  A88C                     syscall    StringWidth
  79. 000000AE  3D5F FFFE                move.w     [A6 - 0x2], [A7]+
  80. 000000B2  7052                     moveq.l    D0, 0x52
  81. 000000B4  906E FFFE                sub.w      D0, [A6 - 0x2]
  82. 000000B8  E240                     asr        D0.w, 1
  83. 000000BA  D07C 000A                add.w      D0, 0xA /* '\n' */
  84. 000000BE  3F00                     move.w     -[A7], D0
  85. 000000C0  3F3C 0140                move.w     -[A7], 0x140
  86. 000000C4  A893                     syscall    MoveTo
  87. 000000C6  302E 0008                move.w     D0, [A6 + 0x8]
  88. 000000CA  E140                     asl        D0.w, 8
  89. 000000CC  41ED 88AE                lea.l      A0, [A5 - 0x7752]
  90. 000000D0  4870 0000                pea.l      [A0 + D0.w]
  91. 000000D4  A884                     syscall    DrawString
  92. 000000D6  3F3C 0004                move.w     -[A7], 0x4
  93. 000000DA  A9C8                     syscall    SysBeep
  94. 000000DC  2F2E FFFA                move.l     -[A7], [A6 - 0x6]
  95. 000000E0  A873                     syscall    SetPort
  96. 000000E2  4E5E                     unlink     A6
  97. 000000E4  205F                     movea.l    A0, [A7]+
  98. 000000E6  544F                     addq.w     A7, 2
  99. 000000E8  4ED0                     jmp        [A0]
  100. export_32:
  101. fn000000EA:
  102. 000000EA  4E56 FF00                link       A6, -0x0100
  103. 000000EE  2F2E 000A                move.l     -[A7], [A6 + 0xA]
  104. 000000F2  486D 86E8                pea.l      [A5 - 0x7918]
  105. 000000F6  A8A5                     syscall    FillRect
  106. 000000F8  2F2E 000A                move.l     -[A7], [A6 + 0xA]
  107. 000000FC  A8A1                     syscall    FrameRect
  108. 000000FE  0C6D 0001 FEAC           cmpi.w     [A5 - 0x154], 0x1
  109. 00000104  57C0                     seq        D0
  110. 00000106  0C6D 0010 FC9C           cmpi.w     [A5 - 0x364], 0x10
  111. 0000010C  56C1                     sne        D1
  112. 0000010E  C001                     and.b      D0, D1
  113. 00000110  6740                     beq        +0x42 /* 00000152 */
  114. 00000112  302E 0008                move.w     D0, [A6 + 0x8]
  115. 00000116  48C0                     ext.l      D0
  116. 00000118  2F00                     move.l     -[A7], D0
  117. 0000011A  486E FF00                pea.l      [A6 - 0x100]
  118. 0000011E  4EAD 00FA                jsr        [A5 + 0xFA /* export_27 */]
  119. 00000122  206E 000A                movea.l    A0, [A6 + 0xA]
  120. 00000126  226E 000A                movea.l    A1, [A6 + 0xA]
  121. 0000012A  3029 0006                move.w     D0, [A1 + 0x6]
  122. 0000012E  D068 0002                add.w      D0, [A0 + 0x2]
  123. 00000132  E240                     asr        D0.w, 1
  124. 00000134  3F00                     move.w     -[A7], D0
  125. 00000136  206E 000A                movea.l    A0, [A6 + 0xA]
  126. 0000013A  226E 000A                movea.l    A1, [A6 + 0xA]
  127. 0000013E  3029 0004                move.w     D0, [A1 + 0x4]
  128. 00000142  D050                     add.w      D0, [A0]
  129. 00000144  E240                     asr        D0.w, 1
  130. 00000146  5740                     subq.w     D0, 3
  131. 00000148  3F00                     move.w     -[A7], D0
  132. 0000014A  A893                     syscall    MoveTo
  133. 0000014C  486E FF00                pea.l      [A6 - 0x100]
  134. 00000150  A884                     syscall    DrawString
  135. label00000152:
  136. 00000152  4E5E                     unlink     A6
  137. 00000154  205F                     movea.l    A0, [A7]+
  138. 00000156  5C4F                     addq.w     A7, 6
  139. 00000158  4ED0                     jmp        [A0]
  140. export_33:
  141. 0000015A  4E56 FFB6                link       A6, -0x004A
  142. 0000015E  48E7 1F00                movem.l    -[A7], D3,D4,D5,D6,D7
  143. 00000162  3F3C 0003                move.w     -[A7], 0x3
  144. 00000166  4EBA FF1E                jsr        [PC - 0xE2 /* 00000086 */]
  145. 0000016A  4267                     clr.w      -[A7]
  146. 0000016C  486D 868A                pea.l      [A5 - 0x7976]
  147. 00000170  4EAD 0082                jsr        [A5 + 0x82 /* export_12 */]
  148. 00000174  3D5F FFBE                move.w     [A6 - 0x42], [A7]+
  149. 00000178  2F2D 984E                move.l     -[A7], [A5 - 0x67B2]
  150. 0000017C  4EAD 006A                jsr        [A5 + 0x6A /* export_9 */]
  151. 00000180  206D 984E                movea.l    A0, [A5 - 0x67B2]
  152. 00000184  2B50 9840                move.l     [A5 - 0x67C0], [A0]
  153. 00000188  2F3C 0000 8000           move.l     -[A7], 0x8000
  154. 0000018E  302D FED4                move.w     D0, [A5 - 0x12C]
  155. 00000192  48C0                     ext.l      D0
  156. 00000194  2F00                     move.l     -[A7], D0
  157. 00000196  4EAD 0032                jsr        [A5 + 0x32 /* export_2 */]
  158. 0000019A  201F                     move.l     D0, [A7]+
  159. 0000019C  3D40 FFE2                move.w     [A6 - 0x1E], D0
  160. 000001A0  486E FFF8                pea.l      [A6 - 0x8]
  161. 000001A4  4267                     clr.w      -[A7]
  162. 000001A6  4267                     clr.w      -[A7]
  163. 000001A8  4267                     clr.w      -[A7]
  164. 000001AA  4267                     clr.w      -[A7]
  165. 000001AC  A8A7                     syscall    SetRect
  166. 000001AE  302D FC9C                move.w     D0, [A5 - 0x364]
  167. 000001B2  5340                     subq.w     D0, 1
  168. 000001B4  3D40 FFBC                move.w     [A6 - 0x44], D0
  169. 000001B8  4247                     clr.w      D7
  170. 000001BA  6042                     bra        +0x44 /* 000001FE */
  171. label000001BC:
  172. 000001BC  302D FC9C                move.w     D0, [A5 - 0x364]
  173. 000001C0  5340                     subq.w     D0, 1
  174. 000001C2  3D40 FFBA                move.w     [A6 - 0x46], D0
  175. 000001C6  4246                     clr.w      D6
  176. 000001C8  6028                     bra        +0x2A /* 000001F2 */
  177. label000001CA:
  178. 000001CA  3006                     move.w     D0, D6
  179. 000001CC  E340                     asl        D0.w, 1
  180. 000001CE  3207                     move.w     D1, D7
  181. 000001D0  7400                     moveq.l    D2, 0x00
  182. 000001D2  0242 0001                andi.w     D2, 0x1
  183. 000001D6  3601                     move.w     D3, D1
  184. 000001D8  0243 0007                andi.w     D3, 0x7
  185. 000001DC  E649                     lsr        D1.w, 3
  186. 000001DE  D240                     add.w      D1, D0
  187. 000001E0  41F6 10C0                lea.l      A0, [A6 + D1.w - 0x64]
  188. 000001E4  70FE                     moveq.l    D0, 0xFFFFFFFE
  189. 000001E6  E738                     rol        D0.b, D3
  190. 000001E8  E72A                     lsl        D2.b, D3
  191. 000001EA  C110                     and.b      [A0], D0
  192. 000001EC  8510                     or.b       [A0], D2
  193. 000001EE  5246                     addq.w     D6, 1
  194. 000001F0  6908                     bvs        +0xA /* 000001FA */
  195. label000001F2:
  196. 000001F2  3006                     move.w     D0, D6
  197. 000001F4  B06E FFBA                cmp.w      D0, [A6 - 0x46]
  198. 000001F8  6FD0                     ble        -0x2E /* 000001CA */
  199. label000001FA:
  200. 000001FA  5247                     addq.w     D7, 1
  201. 000001FC  6908                     bvs        +0xA /* 00000206 */
  202. label000001FE:
  203. 000001FE  3007                     move.w     D0, D7
  204. 00000200  B06E FFBC                cmp.w      D0, [A6 - 0x44]
  205. 00000204  6FB6                     ble        -0x48 /* 000001BC */
  206. label00000206:
  207. 00000206  3D7C FFFF FFE6           move.w     [A6 - 0x1A], 0xFFFF
  208. 0000020C  3D7C FFFF FFE4           move.w     [A6 - 0x1C], 0xFFFF
  209. 00000212  302D FC9C                move.w     D0, [A5 - 0x364]
  210. 00000216  5340                     subq.w     D0, 1
  211. 00000218  3D40 FFB8                move.w     [A6 - 0x48], D0
  212. 0000021C  4247                     clr.w      D7
  213. 0000021E  6000 0246                bra        +0x248 /* 00000466 */
  214. label00000222:
  215. 00000222  302D FC9C                move.w     D0, [A5 - 0x364]
  216. 00000226  5340                     subq.w     D0, 1
  217. 00000228  3D40 FFB6                move.w     [A6 - 0x4A], D0
  218. 0000022C  4246                     clr.w      D6
  219. 0000022E  6000 0228                bra        +0x22A /* 00000458 */
  220. label00000232:
  221. 00000232  526E FFE4                addq.w     [A6 - 0x1C], 1
  222. 00000236  3006                     move.w     D0, D6
  223. 00000238  E340                     asl        D0.w, 1
  224. 0000023A  3207                     move.w     D1, D7
  225. 0000023C  3401                     move.w     D2, D1
  226. 0000023E  E642                     asr        D2.w, 3
  227. 00000240  D440                     add.w      D2, D0
  228. 00000242  0335 20E0                btst       [A5 + D2.w - 0x32], D1
  229. 00000246  56C0                     sne        D0
  230. 00000248  3206                     move.w     D1, D6
  231. 0000024A  E341                     asl        D1.w, 1
  232. 0000024C  3407                     move.w     D2, D7
  233. 0000024E  3602                     move.w     D3, D2
  234. 00000250  E643                     asr        D3.w, 3
  235. 00000252  D641                     add.w      D3, D1
  236. 00000254  0536 30C0                btst       [A6 + D3.w - 0x64], D2
  237. 00000258  56C1                     sne        D1
  238. 0000025A  8001                     or.b       D0, D1
  239. 0000025C  5200                     addq.b     D0, 1
  240. 0000025E  4A00                     tst.b      D0
  241. 00000260  6700 01E2                beq        +0x1E4 /* 00000444 */
  242. 00000264  3006                     move.w     D0, D6
  243. 00000266  C1ED F9F2                muls.w     D0, [A5 - 0x60E]
  244. 0000026A  5240                     addq.w     D0, 1
  245. 0000026C  3D40 FFF2                move.w     [A6 - 0xE], D0
  246. 00000270  3007                     move.w     D0, D7
  247. 00000272  C1ED F9F4                muls.w     D0, [A5 - 0x60C]
  248. 00000276  5240                     addq.w     D0, 1
  249. 00000278  3D40 FFF0                move.w     [A6 - 0x10], D0
  250. 0000027C  302D F9EE                move.w     D0, [A5 - 0x612]
  251. 00000280  D06E FFF2                add.w      D0, [A6 - 0xE]
  252. 00000284  3D40 FFF6                move.w     [A6 - 0xA], D0
  253. 00000288  302D F9F0                move.w     D0, [A5 - 0x610]
  254. 0000028C  D06E FFF0                add.w      D0, [A6 - 0x10]
  255. 00000290  3D40 FFF4                move.w     [A6 - 0xC], D0
  256. 00000294  486E FFF0                pea.l      [A6 - 0x10]
  257. 00000298  486D 86F8                pea.l      [A5 - 0x7908]
  258. 0000029C  A8A5                     syscall    FillRect
  259. 0000029E  4A6E FFE6                tst.w      [A6 - 0x1A]
  260. 000002A2  6D10                     blt        +0x12 /* 000002B4 */
  261. 000002A4  486E FFF8                pea.l      [A6 - 0x8]
  262. 000002A8  302E FFE6                move.w     D0, [A6 - 0x1A]
  263. 000002AC  5240                     addq.w     D0, 1
  264. 000002AE  3F00                     move.w     -[A7], D0
  265. 000002B0  4EBA FE38                jsr        [PC - 0x1C8 /* 000000EA */]
  266. label000002B4:
  267. 000002B4  4267                     clr.w      -[A7]
  268. 000002B6  A861                     syscall    Random
  269. 000002B8  301F                     move.w     D0, [A7]+
  270. 000002BA  6A02                     bpl        +0x4 /* 000002BE */
  271. 000002BC  4440                     neg.w      D0
  272. label000002BE:
  273. 000002BE  48C0                     ext.l      D0
  274. 000002C0  81EE FFE2                divs.w     D0, [A6 - 0x1E]
  275. 000002C4  3D40 FFE6                move.w     [A6 - 0x1A], D0
  276. 000002C8  302E FFE6                move.w     D0, [A6 - 0x1A]
  277. 000002CC  48C0                     ext.l      D0
  278. 000002CE  81ED FC9C                divs.w     D0, [A5 - 0x364]
  279. 000002D2  3A00                     move.w     D5, D0
  280. 000002D4  302E FFE6                move.w     D0, [A6 - 0x1A]
  281. 000002D8  48C0                     ext.l      D0
  282. 000002DA  81ED FC9C                divs.w     D0, [A5 - 0x364]
  283. 000002DE  4840                     swap.w     D0
  284. 000002E0  4A40                     tst.w      D0
  285. 000002E2  3800                     move.w     D4, D0
  286. 000002E4  3004                     move.w     D0, D4
  287. 000002E6  E340                     asl        D0.w, 1
  288. 000002E8  3205                     move.w     D1, D5
  289. 000002EA  3401                     move.w     D2, D1
  290. 000002EC  E642                     asr        D2.w, 3
  291. 000002EE  D440                     add.w      D2, D0
  292. 000002F0  0335 20E0                btst       [A5 + D2.w - 0x32], D1
  293. 000002F4  56C0                     sne        D0
  294. 000002F6  3204                     move.w     D1, D4
  295. 000002F8  E341                     asl        D1.w, 1
  296. 000002FA  3405                     move.w     D2, D5
  297. 000002FC  3602                     move.w     D3, D2
  298. 000002FE  E643                     asr        D3.w, 3
  299. 00000300  D641                     add.w      D3, D1
  300. 00000302  0536 30C0                btst       [A6 + D3.w - 0x64], D2
  301. 00000306  56C1                     sne        D1
  302. 00000308  8001                     or.b       D0, D1
  303. 0000030A  5200                     addq.b     D0, 1
  304. 0000030C  3206                     move.w     D1, D6
  305. 0000030E  B244                     cmp.w      D1, D4
  306. 00000310  57C1                     seq        D1
  307. 00000312  3407                     move.w     D2, D7
  308. 00000314  B445                     cmp.w      D2, D5
  309. 00000316  57C2                     seq        D2
  310. 00000318  C202                     and.b      D1, D2
  311. 0000031A  5201                     addq.b     D1, 1
  312. 0000031C  C001                     and.b      D0, D1
  313. 0000031E  4A00                     tst.b      D0
  314. 00000320  6792                     beq        -0x6C /* 000002B4 */
  315. 00000322  3004                     move.w     D0, D4
  316. 00000324  C1ED F9F2                muls.w     D0, [A5 - 0x60E]
  317. 00000328  5240                     addq.w     D0, 1
  318. 0000032A  3D40 FFFA                move.w     [A6 - 0x6], D0
  319. 0000032E  3005                     move.w     D0, D5
  320. 00000330  C1ED F9F4                muls.w     D0, [A5 - 0x60C]
  321. 00000334  5240                     addq.w     D0, 1
  322. 00000336  3D40 FFF8                move.w     [A6 - 0x8], D0
  323. 0000033A  302D F9EE                move.w     D0, [A5 - 0x612]
  324. 0000033E  D06E FFFA                add.w      D0, [A6 - 0x6]
  325. 00000342  3D40 FFFE                move.w     [A6 - 0x2], D0
  326. 00000346  302D F9F0                move.w     D0, [A5 - 0x610]
  327. 0000034A  D06E FFF8                add.w      D0, [A6 - 0x8]
  328. 0000034E  3D40 FFFC                move.w     [A6 - 0x4], D0
  329. 00000352  486E FFF8                pea.l      [A6 - 0x8]
  330. 00000356  486D 86F8                pea.l      [A5 - 0x7908]
  331. 0000035A  A8A5                     syscall    FillRect
  332. 0000035C  486E FFF0                pea.l      [A6 - 0x10]
  333. 00000360  302E FFE4                move.w     D0, [A6 - 0x1C]
  334. 00000364  5240                     addq.w     D0, 1
  335. 00000366  3F00                     move.w     -[A7], D0
  336. 00000368  4EBA FD80                jsr        [PC - 0x280 /* 000000EA */]
  337. 0000036C  3006                     move.w     D0, D6
  338. 0000036E  E940                     asl        D0.w, 4
  339. 00000370  3207                     move.w     D1, D7
  340. 00000372  D240                     add.w      D1, D0
  341. 00000374  41ED FC9E                lea.l      A0, [A5 - 0x362]
  342. 00000378  1030 1000                move.b     D0, [A0 + D1.w]
  343. 0000037C  0240 00FF                andi.w     D0, 0xFF
  344. 00000380  3D40 FFE0                move.w     [A6 - 0x20], D0
  345. 00000384  3006                     move.w     D0, D6
  346. 00000386  E940                     asl        D0.w, 4
  347. 00000388  3207                     move.w     D1, D7
  348. 0000038A  3404                     move.w     D2, D4
  349. 0000038C  E942                     asl        D2.w, 4
  350. 0000038E  3605                     move.w     D3, D5
  351. 00000390  D642                     add.w      D3, D2
  352. 00000392  41ED FC9E                lea.l      A0, [A5 - 0x362]
  353. 00000396  1430 3000                move.b     D2, [A0 + D3.w]
  354. 0000039A  0242 00FF                andi.w     D2, 0xFF
  355. 0000039E  D240                     add.w      D1, D0
  356. 000003A0  41ED FC9E                lea.l      A0, [A5 - 0x362]
  357. 000003A4  1182 1000                move.b     [A0 + D1.w], D2
  358. 000003A8  3004                     move.w     D0, D4
  359. 000003AA  E940                     asl        D0.w, 4
  360. 000003AC  3205                     move.w     D1, D5
  361. 000003AE  D240                     add.w      D1, D0
  362. 000003B0  41ED FC9E                lea.l      A0, [A5 - 0x362]
  363. 000003B4  11AE FFE1 1000           move.b     [A0 + D1.w], [A6 - 0x1F]
  364. 000003BA  3006                     move.w     D0, D6
  365. 000003BC  E340                     asl        D0.w, 1
  366. 000003BE  3207                     move.w     D1, D7
  367. 000003C0  7401                     moveq.l    D2, 0x01
  368. 000003C2  0242 0001                andi.w     D2, 0x1
  369. 000003C6  3601                     move.w     D3, D1
  370. 000003C8  0243 0007                andi.w     D3, 0x7
  371. 000003CC  E649                     lsr        D1.w, 3
  372. 000003CE  D240                     add.w      D1, D0
  373. 000003D0  41F6 10C0                lea.l      A0, [A6 + D1.w - 0x64]
  374. 000003D4  70FE                     moveq.l    D0, 0xFFFFFFFE
  375. 000003D6  E738                     rol        D0.b, D3
  376. 000003D8  E72A                     lsl        D2.b, D3
  377. 000003DA  C110                     and.b      [A0], D0
  378. 000003DC  8510                     or.b       [A0], D2
  379. 000003DE  3004                     move.w     D0, D4
  380. 000003E0  E340                     asl        D0.w, 1
  381. 000003E2  3205                     move.w     D1, D5
  382. 000003E4  7401                     moveq.l    D2, 0x01
  383. 000003E6  0242 0001                andi.w     D2, 0x1
  384. 000003EA  3601                     move.w     D3, D1
  385. 000003EC  0243 0007                andi.w     D3, 0x7
  386. 000003F0  E649                     lsr        D1.w, 3
  387. 000003F2  D240                     add.w      D1, D0
  388. 000003F4  41F6 10C0                lea.l      A0, [A6 + D1.w - 0x64]
  389. 000003F8  70FE                     moveq.l    D0, 0xFFFFFFFE
  390. 000003FA  E738                     rol        D0.b, D3
  391. 000003FC  E72A                     lsl        D2.b, D3
  392. 000003FE  C110                     and.b      [A0], D0
  393. 00000400  8510                     or.b       [A0], D2
  394. 00000402  486D 9860                pea.l      [A5 - 0x67A0]
  395. 00000406  486D 9840                pea.l      [A5 - 0x67C0]
  396. 0000040A  486E FFF0                pea.l      [A6 - 0x10]
  397. 0000040E  486D 9846                pea.l      [A5 - 0x67BA]
  398. 00000412  4267                     clr.w      -[A7]
  399. 00000414  42A7                     clr.l      -[A7]
  400. 00000416  A8EC                     syscall    CopyBits
  401. 00000418  486D 9860                pea.l      [A5 - 0x67A0]
  402. 0000041C  486D 9860                pea.l      [A5 - 0x67A0]
  403. 00000420  486E FFF8                pea.l      [A6 - 0x8]
  404. 00000424  486E FFF0                pea.l      [A6 - 0x10]
  405. 00000428  4267                     clr.w      -[A7]
  406. 0000042A  42A7                     clr.l      -[A7]
  407. 0000042C  A8EC                     syscall    CopyBits
  408. 0000042E  486D 9840                pea.l      [A5 - 0x67C0]
  409. 00000432  486D 9860                pea.l      [A5 - 0x67A0]
  410. 00000436  486D 9846                pea.l      [A5 - 0x67BA]
  411. 0000043A  486E FFF8                pea.l      [A6 - 0x8]
  412. 0000043E  4267                     clr.w      -[A7]
  413. 00000440  42A7                     clr.l      -[A7]
  414. 00000442  A8EC                     syscall    CopyBits
  415. label00000444:
  416. 00000444  486E FFF8                pea.l      [A6 - 0x8]
  417. 00000448  302E FFE6                move.w     D0, [A6 - 0x1A]
  418. 0000044C  5240                     addq.w     D0, 1
  419. 0000044E  3F00                     move.w     -[A7], D0
  420. 00000450  4EBA FC98                jsr        [PC - 0x368 /* 000000EA */]
  421. 00000454  5246                     addq.w     D6, 1
  422. 00000456  690A                     bvs        +0xC /* 00000462 */
  423. label00000458:
  424. 00000458  3006                     move.w     D0, D6
  425. 0000045A  B06E FFB6                cmp.w      D0, [A6 - 0x4A]
  426. 0000045E  6F00 FDD2                ble        -0x22C /* 00000232 */
  427. label00000462:
  428. 00000462  5247                     addq.w     D7, 1
  429. 00000464  690A                     bvs        +0xC /* 00000470 */
  430. label00000466:
  431. 00000466  3007                     move.w     D0, D7
  432. 00000468  B06E FFB8                cmp.w      D0, [A6 - 0x48]
  433. 0000046C  6F00 FDB4                ble        -0x24A /* 00000222 */
  434. label00000470:
  435. 00000470  2F2D 984E                move.l     -[A7], [A5 - 0x67B2]
  436. 00000474  4EAD 0072                jsr        [A5 + 0x72 /* export_10 */]
  437. 00000478  3F3C 0002                move.w     -[A7], 0x2
  438. 0000047C  4267                     clr.w      -[A7]
  439. 0000047E  201F                     move.l     D0, [A7]+
  440. 00000480  A032                     syscall    FlushEvents
  441. 00000482  4CDF 00F8                movem.l    D3,D4,D5,D6,D7, [A7]+
  442. 00000486  4E5E                     unlink     A6
  443. 00000488  4E75                     rts
  444.